www.gusucode.com > HCONLY站长管理助手 V1.3 > HCONLY站长管理助手 V1.3\code\config\chklogin.asp

    <!--#include file="config.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="md5.asp" -->
<%
'***************HCONLY_Admin 登陆验证*********************
' Copyright 2009-2010
' Create:2009-8-25
' Update:2010-9-24
'********************************************************

	  IF Request.Form("ppwwdd")=Empty Then
		  response.Write("请填写登陆密码！<br><br><a href='javascript:history.go(-1);'>请返回重新输入</a>")
	  Else
		 Set admLogin=Server.CreateObject("ADODB.Recordset")
		SQL="SELECT * from admin where pwd='" & MD5(request.Form("ppwwdd")) & "' and id=1"
		 admLogin.Open SQL,Conn,1,3
		 IF admLogin.EOF AND admLogin.BOF Then
		  	response.Write("密码错误! !<br><br><a href='javascript:history.go(-1);'>请返回重新输入</a>")
		 Else
			Session("ASPS")=1
			If request.Form("ppwwdd") = "admin"  Then
				response.Write("<Script>alert('温馨提示：感谢您使用本程序，请尽快在页面左侧的“站长工具箱”里修改初始密码，本提示窗口将不再出现');window.location='../hconly_main.asp';</script>")
			Else
				response.Write("<Script>window.location='../hconly_main.asp';</script>")
			End If
		 End If
		 admLogin.Close
		 Set memLogin=Nothing
	End IF
%>